home *** CD-ROM | disk | FTP | other *** search
- /* Copyright, 1990, Regents of the University of Colorado */
- /* code called by host routine to initialize and destroy environment structures*/
-
- #include "D_lib.h"
- #include "internal.h"
- #include <stdio.h>
-
- D_dino_finish()
- {
- #if (D_MACH==D_CUBE)
- lkill(-1,-1);
- lwaitall(-1,-1);
- #elif (D_MACH==D_SIM)
- lkill(-1,-1);
- #else
- killcube(-1,-1);
- #endif
- }
-
- D_dino_main()
- {
- D_init_global_const();
- D_init_global_map();
- D_init_local_const();
- D_init_local_map();
- D_env_init(((int) D_last_env) + 1);
- }
-